home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / ERAS / TY / ERA_TY.DIR / 00129_Script_palette utility < prev    next >
Text File  |  1997-07-24  |  609b  |  17 lines
  1. on castwithpal palcnum, clib
  2.   -- Finds any bitmaps that are using an obsolete palette
  3.   -- and returns a list to the message window
  4.   -- palcnum: is the number of the palette in question
  5.   -- clib: is the castlib name
  6.   if voidP(clib) then set clib = "internal"
  7.   set var = ""
  8.   repeat with x = 1 to the number of members of castlib clib
  9.     if the casttype of member x of castlib clib  = #bitmap then
  10.       if the palette of member x of castlib clib = palcnum then 
  11.         put x&"," after var
  12.         
  13.       end if
  14.     end if
  15.   end repeat
  16.   put "members using palette "&palcnum&": "&var
  17. end